home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Library Hyper Card Templates / Open Stack / Labels / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1987-12-04  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2855</cardID>
  8.     <listID>2101</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>---------------------- Walking Shadow Library -----------------------on startUpgetHomeInfoglobal fieldScript,fieldList,bookNumber,autoNumberingglobal tentativeBook, initGlobalsput empty into fieldScriptput "on closeField" into line 1 of fieldScriptput "global fieldList" into line 2 of fieldScriptput "put word 3 of name of me into tempName" into line 3 of ¬¨fieldScriptput "if not(fieldList contains tempName) then" into line 4 of ¬¨fieldScriptput "put (word 3 of name of me) & "&quote&","&quote&" after fieldList" ¬¨into line 5 of fieldScriptput "end if" into line 6 of fieldScriptput "end closeField" into line 7 of fieldScriptput empty into fieldListput false into tentativeBookset lockScreen to truepush cardput true into initGlobalsgo to stack "Control"put the hilite of button "Auto Numbering" into autoNumberingput card field "Book Number" into bookNumberput false into initGlobalspop cardset lockScreen to falsepass startUpend startUpon openStackglobal beginGlobalif beginGlobal is not false thenput false into beginGlobalset cursor to 4startUpend ifend openStackon quitset lockScreen to truego to stack "Control"put bookNumber into card field "Book Number"end quiton mkNewCardglobal autoNumberingset cursor to 4doMenu "New Card"set lockScreen to trueput the id of this card into labIdput "on goLab" into line 1 of goLabScrput "go to "&labId&" of stack Labels" into line 2 of goLabScrput "end goLab" into line 3 of goLabScrpush card-----------------------------------------------------------------go to stack "Circulation"doMenu "New Card"put the id of this card into circIdput "on goCirc" into line 1 of goCircScrput "go to "&circId&" of stack Circulation" into line 2 of goCircScrput "end goCirc" into line 3 of goCircScrpush card------------------------------------------------------------------go to stack "Cataloging"doMenu "New Card"put the id of this card into catIdput "on goCat" into line 1 of goCatScrput "go to "&catId&" of stack Cataloging" into line 2 of goCatScrput "end goCat" into line 3 of goCatScrpush card------------------------------------------------------------------go to stack "Acquisitions"doMenu "New Card"put the id of this card into acqIdput "on goAcq" into line 1 of goAcqScrput "go to "&acqId&" of stack Acquisitions" into line 2 of goAcqScrput "end goAcq" into line 3 of goAcqScr-------------------------------------------------------------------- Make card script:put goAcqScr into cardScrput goCircScr into line 4 of cardScrput goCatScr into line 7 of cardScrput goLabScr into line 10 of cardScrset the script of this card to cardScrpop cardset the script of this card to cardScrpop cardset the script of this card to cardScrpop cardset the script of this card to cardScrif autoNumbering is true then send openCard to this cardset lockscreen to falseend mkNewCardon delCardanswer "Delete this and related cards in other stacks?" with ¬¨"OK" or "Cancel"if it is not "Cancel" thenset cursor to 4set lockScreen to truepush carddo line 5 of the script of this cardpush carddo line 8 of the script of this cardpush carddo line 2 of the script of this carddoMenu "Delete Card"pop carddoMenu "Delete Card"pop carddoMenu "Delete Card"pop carddoMenu "Delete Card"set lockscreen to falseend ifend delCardon arrowKey whichKeyif the CommandKey is down thenmkNewCardelseif whichKey = "right" thengo to next cardelseif whichKey = "left" thengo to prev cardend ifend ifend ifend arrowKey-------------------- End Open Stack Routine ---------------------------on resu